AD-A142  783 

UNCLASSIFIED 

PROCEEDINGS  PAPERS  OF  THE 
COMMAND )  AVIONICS  STAND. 
WRIGHT -PATTERSON  AFB  OH 

C  A  PORUBCANSKY  NOV  82 

AF SC  (AIR  FORCE  SYSTEMS 
(U)  AERONAUTICAL  SYSTEMS  DIV 
IRECTORATE  0. . 

F/G  9/2  N 

j 

. — 

L 

i 

i 

1 

1 - 

r 

( 

i 

MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BURtAU  OT  SHNOARDS  19b? -A 


nou^ui^n;  m  u<.  www  • 

VOLUME  Vtll  ' 


2nd  AFSC 

STANDARDIZATION 

CONFERENCE 


COMBINED  PARTICIPATION  BY: 

DOD-ARMYNAVYAIR  FORCE-NATO 


30  NOVEMBER  -  2  DECEMBER  1982 
TUTORIALS:  29  NOVEMBER  1982 

DAYTON  CONVENTION  CENTER 
DAYTON,  OHIO 


YSOREC  BY 


TUTORIAL 

MIL-STD-1815 

ADA  HIGH  ORDER  LANGUAGE 


HOSTED  8  * 


Approved  lor  PoPlle  Roioooo  Oietrlfeotion  Unllmltod 


MOT ICS 


when  'ov  rnment  drawings,  sped  fie*  a.  cm-, .  or  orhmr  d»L* i  ..-a  used  for  any  purpose 
censr  rrsn  in  connection  wtA  s  definitely  r«laeee  .  jm»ir  -r  proci/renent  cperv.  t : c.-. , 
tAa  L'nicetf  States  Goverrment  cAereAy  incurs  no  rvspons.il  il:ty  nor  *ny  oWiyst.  cn 
vMi  soevjr,  and  tAe  feet  tAat  tAe  government  .d*y  *v»vo  formulated .  furnished,  or  in 
sny  wy  supplied  tAe  said  drawings,  sped f: cs . o,:.. .  -i  dais,  is  not  to  Ae  re- 

gtrdei  Ay  implication  or  otherwise  as  in  any  manner  licensing  the  holder  or  any 
ether  person  or  corporation,  or  conveying  any  rights  or  y.-u. mission  to  manufacture 
use,  or  sell  any  patented  invention  tAst  may  in  anu  -ay  be  twisted  thereto. 


This  report  has  been  reviewed  by  the  Office  of  Public  Affairs  tnl.c/= A)  and  is 
releasable  to  the  National  Technical  Information  Service  (NTIS) .  At  NT13.  ;c  wi ; . 
Ae  avaiiaAia  to  the  general  public,  including  foreign  nations. 


'’’his  technical  report  has  been  reviewed  and  is  approved  for  publicazi.tr. 


t. 


JsfrER t  L.  °ESL^R 
/  i  c  --  Cht  '  ruan 

.‘nd  AFSC  Standardization  Conference 


c 


ERWIN  C.  GANGL 
Chief,  Avionics  Systems  D  i  v  i  i  o  n 
Directorate  of  Avionics  Engiroir 


iif 


-2. 


RO l  : RT  P.  l.AVOIE,  COL,  USAF 
•i  'ector  cf  A  -  ionics  Engineering 
Dopjtv  ftr  £  n  ;  :  n  e  e  r  i  n  g 


"If  ycu.r  a  dares  has  ?. haro.td,  if  you  wish  to  Ae  removed  from  our  mailing  list,  cr 
if  the  add e* see  ii  nc  .enter  employed  by  your  organization  please  notify  ASD/ENAS 
W-PAFB.  OH  *S4J3  to  hil c  is  maintain  a  current  mailing  list". 


Copies  of  this  report  should  not  be  returned  unless  return  is  required  Ay  security 
considerations ■  contractual  obligations,  or  notice  on  a  specific  document. 


UNCLASSI FIED _ 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  (Whtn  0««  ! nlmrrd)  _ 


REPORT  DOCUMENTATION  PAGE  BEFORE0 COMPLETWg’fORM 


.  REPORT  NUMBER  2.  GOVT  ACCESSION  NO.  3  RECIPIENT'S  CAT ALOG  NUMBER 

SD(ENA)-TR-82-5031/  VOLUME  VIII  /) /)l /4  /  </ 3- ^7 ,  _ 


«.  TITLE  ('And  Subtitle)  *  TYPE  OF  REPORT  »  PERIOD  COVERED 

Final  Report 

Proceedings  Papers  of  the  Second  AFSC  Avionics  29  November  -  2  December  1982 
Standardization  Conference  s.  performing  org.  report  number 


7  author/*; 

'  t.  CONTRACT  OR  GRANT  NUMBER/*; 

Editor:  Cynthia  A.  Porubcansky 

9.  PERFORMING  ORGANIZATION  NAME  AND  ADDRESS 

HQ  ASD/ENAS 

Wright-Patterson  AFB  OH  45433 

10.  PROGRAM  ELEMENT.  PROJECT.  TASK 
AREA  A  WORK  UNIT  NUMBERS 

11.  CONTROLLING  OFFICE  NAME  AND  ADDRESS 

HQ  ASD/ENA 

12.  REPORT  OATE 

November  1982 

Wright-Patterson  AFB  OH  45433 

13.  NUMBER  OF  PAGES 

14.  MONITORING  AGENCY  name  b  ADORES S( if  different  from  Controlling  Othce) 

Same  as  Above 

IS.  SECURITY  CLASS.  Cot  thte  roport) 

Unclassified 

15/.  declassification  downgrading 
SCHEDULE 

IS.  DISTRIBUTION  STATEMENT  (o  1  thin  Fmporl) 

Approved  for  public  release;  distribution  unlimited. 

17.  DISTRIBUTION  STATEMENT  / of  th e  mbatrect  an fared  in  Block  20,  if  different  from  Report) 

N/A 

j  1®.  SUPPLEMENTARY  notes 

N/A 

If.  KEY  WORDS  (Continue  on  r«vtr«  aid a  it  neceeeeey  and  identify  by  block  number) 

Computer  Instruction  Set  Architecture/  Multiplexing/  Compilers/  Support  Software/ 
Data  Bus/  Rational  Standardization/  Digital  Avionics/  System  Integration/  Stores 
Interface/  Standardization/  MIL-STD-1553/  MIL-STD-1589  (JOVIAL)/  MIL-STD-1750/ 
IMIL-STD-1760/  MIL-STD-1815  (ADA)/  MIL-STD-1862  (NEBULA). 

1 

20  ABSTRACT  fContfnu*  on  reeerae  fide  If  neceeeery  a nd  identify  by  block  number) 

|-Ihis  is  a  collection  of  UNCLASSIFIED  papers  to  be  distributed  to  the  attendees 
of  the  Second  AFSC  Avionics  Standard izat ion  Conference  at  the  Convention  Center/ 
Dayton/  Ohio.  The  scope  of  the  Conference  includes  the  complete  range  of  DoD 
approved  embedded  computer  hardware/software  and  related  interface  standards  as 
well  as  standard  subsystem;  used  within  the  Tri-Service  community  and  NATO.  The 
theme  of  the  conference  is '"Rational  Standardization  .  Lessons  learned  as  well 
as  the  pros  and  cons  of  standardization  are  highlighted. 

A- 

\ 

DO  |  jSJ*!  1473  COITION  OF  ■  NOV  ••  IS  OBSOLETE 


UNCLASSIFIED 

SECURITY  CLASSIFICATION  OF  THIS  PAGE  fShm »  Omrn  SmwB 


Thlt  It  Volume  8 

'Wan  1  Prop— alngi  pp.  1-560 

Mw  2  PnoMdlnji  pp.  561-1131 

VOlma  3  Onwiuiq  Poo— if 

Volina  4  «Lr-9H>-1553  Tutorial 

Volina  5  KIL-SID-1589  Tutorial 

Volina  6  Mn^STO-1679  Tutorial 

Volina  7  ML-SID-17S0  Tutorial 

Volina  S  W1/-87D-1U5  Tutorial 

Volina  »  navy  Cue  study  Tutorial 


PROCEEDINGS  OF  THE 


2nd  AFSC 

STANDARDIZATION  CONFERENCE 


30  NOVEMBER  -  2  DECEMBER  1982 


DAYTON  CONVENTION  CENTER 
DAYTON,  OHIO 


Sponsored  by: 


Hosted  by: 


Air  Force  Systems  Command 


Aeronautical  Systems  Division 


FOREWORD 


THE  UNITED  STATES  AIR  FORCE  HAS  COMMITTED  ITSELF  TO  "STANDARDIZATION." 
THE  THEME  OF  THIS  YEAR'S  CONFERENCE  IS  "RATIONAL  STANDARDIZATION,"  AND  WE 
HAVE  EXPANDED  THE  SCOPE  TO  INCLUDE  US  ARMY,  US  NAVY  AND  NATO  PERSPECTIVES 
ON  ONGOING  DOD  INITIATIVES  IN  THIS  IMPORTANT  AREA. 


WHY  DOES  THE  AIR  FORCE  SYSTEMS  COMMAND  SPONSOR  THESE  CONFERENCES? 
BECAUSE  WE  BELIEVE  THAT  THE  COMMUNICATIONS  GENERATED  BY  THESE  GET-TOGETHERS 
IMPROVE  THE  ACCEPTANCE  OF  OUR  NEW  STANDARDS  AND  FOSTERS  EARLIER,  SUCCESSFUL 
IMPLEMENTATION  IN  NUMEROUS  APPLICATIONS.  WE  WANT  ALL  PARTIES  AFFECTED  BY 
THESE  STANDARDS  TO  KNOW  JUST  WHAT  IS  AVAILABLE  TO  SUPPORT  THEM:  THE 
HARDWARE;  THE  COMPLIANCE  TESTING;  THE  TOOLS  NECESSARY  TO  FACILITATE  DESIGN, 
ETC.  WE  ALSO  BELIEVE  THAT  FEEDBACK  FROM  PEOPLE  WHO  HAVE  USED  THEM  IS 
ESSENTIAL  TO  OUR  CONTINUED  EFFORTS  TO  IMPROVE  OUR  STANDARDIZATION  PROCESS. 
WE  HOPE  TO  LEARN  FROM  OUR  SUCCESSES  AND  OUR  FAILURES;  BUT  FIRST,  WE  MUST 
KNOW  WHAT  THESE  ARE  AND  WE  COUNT  ON  YOU  TO  TELL  US. 


AS  WE  DID  IN  1980,  WE  ARE  FOCUSING  OUR  PRESENTATIONS  ON  GOVERNMENT 
AND  INDUSTRY  EXECUTIVES,  MANAGERS,  AND  ENGINEERS  AND  OUR  GOAL  IS  TO 
EDUCATE  RATHER  THAN  PRESENT  DETAILED  TECHNICAL  MATERIAL.  WE  ARE  STRIVING 
TO  PRESENT,  IN  A  SINGLE  FORUM,  THE  TOTAL  AFSC  STANDARDIZATION  PICTURE  FROM 
POLICY  TO  IMPLEMENTATION.  WE  HOPE  THIS  INSIGHT  WILL  ENABLE  ALL  OF  YOU  TO 
BETTER  UNDERSTAND  THE  "WHY’S  AND  WHEREFORE'S"  OF  OUR  CURRENT  EMPHASIS  ON 
THIS  SUBJECT. 


MANY  THANKS  TO  A  DEDICATED  TEAM  FROM  THE  DIRECTORATE  OF  AVIONICS 
ENGINEERING  FOR  ORGANIZING  THIS  CONFERENCE;  FROM  THE  OUTSTANDING  TECHNICAL 
PROGRAM  TO  THE  UNGLAMOROUS  DETAILS  NEEDED  TO  MAKE  YOUR  VISIT  TO  DAYTON,  OHIO 
A  PLEASANT  ONE.  THANKS  ALSO  TO  ALL  THE  MODERATORS,  SPEAKERS  AND  EXHIBITORS 
WHO  RESPONDED  IN  SUCH  A  TIMELY  MANNER  TO  ALL  OF  OUR  PLEAS  FOR  ASSISTANCE. 


ROBERT  P.  LAVOIE,  COL,  USAF 
DIRECTOR  OF  AVIONICS  ENGINEERING 
DEPUTY  FOR  ENGINEERING 
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2  8  AUG  1982 


Second  AFSC  Standardization  Conference 


-®  ASD/OC 

1.  Since  the  highly  successful  standardization  conference  hosted  by  ASD  in 
1980,  significant  technological  advancements  have  occurred.  Integration  of 
the  standards  into  weapon  systems  has  become  a  reality.  As  a  result,  we  have 
many  "lessons  learned"  and  ccst/benef it  analyses  that  should  be  shared  within 
the  tri-servioe  ooranunity.  Also,  this  would  be  a  good  opportunity  to  update 
current  and  potential  "users."  Therefore,  I  endorse  the  organization  of  the 
Second  AFSC  Standardization  Conference. 

2.  This  conference  should  cover  the  current  accepted  standards,  results  of 
recent  congressional  actions,  and  standards  planned  far  the  future.  We  should 
provide  the  latest  information  an  policy,  system  applications,  and  lessons 
learned.  The  agenda  should  accomodate  both  government  and  industry  inputs 
that  criticize  as  well  as  support  our  efforts.  Experts  from  the  tri-servioe 
arena  should  be  invited  to  present  papers  on  the  various  topics.  Our  AFSC 
project  officer ,  Maj  David  Hanmond,  HQ  AF9C/ALR,  ALTTCMDN  858-5731,  is  prepared 
to  assist. 


ROBERT  M.  BOND,  Lt  Gen.  USA£ 

Vice  Commander 
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MIL-STD-1815 

ADA  HIGH  ORDER  LANGUAGE 

Instructor:  Mai.  Richard  E.  Bolz 

U.S.  Air  Force  Academy 

ABSTRACT 

This  tutorial  will  discuss  the  development  history,  design  and 
implementation  of  Mil  Std  1815  (the  Ada  programming  language).  The 
syntax  and  semantics  of  the  language  will  be  covered  in  overview  fashion 
with  emphasis  on  data  typing  and  the  use  of  Ada  as  an  object-oriented 
design  language. 


BIOGRAPHY 

Major  Richard  E.  Bolz  has  earned  the  BS  and  MS  in  Computer  Science 
from  Penn  State  University  and  has  been  a  member  of  the  Computer  Science 
Department  at  the  U.S.  Air  Force  Academy  since  1973.  He  is  the 
co-developer  of  'Software  Engineering  with  Ada',  A  4-day  course  for 
managers,  analysts,  designers  and  programmers. 
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SYMPTOMS  OF  THE  SOFTWARE  CRISIS 
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AS  A  REACTION  TO  THE  SOFTWARE 
OF?  ISIS,  THE  U.  S.  DEPARTMENT  OE 

DEFENSE  SPONSORED  THE  DEVELOP¬ 

MENT  OE  THE  ADA  PROGRAMMING 
LANGUAGE  AND  ITS  ENVIRONMENT 
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ADA 


4c  REPRESENTS  A  "major  advance 
in  progr-aimmi  ng  technol  ogy  , 
br  i  ng  i  ng  together-  the  best 
i  deas  on  the  subject  x  n  a 
coherent  way  desi gned  to  me 
the  real  needs  o-f  practical 
programmers-  "  I.  C.  Pyle 
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ABSTRACT I ON 


*  EXTRACT  ESSENTI Al _  DETAILS 

*  OMIT  INESSENTIAL.  DETAILS 

*  each  level  oe  decom — 
POSITION  REPRESENTS  ftN 
ABSTRACT I ON 


*  EACH  LEVEL  MUST  BE  COMPLETL 

UNDERSTOOD  AS  A  UNIT 

*  OUR  VIEW  OE  THE  WORLD  FORMS 

LADDERS  OF  ABSTRACT I ON 


Software  Development  Methodologies 


6 


f  f,t'anpwV«$  on  o*  *sn  coi-M 


i 

[ 

! 

INFORMATION  HIDINS 

*c  MAKE  DETAILS  OF  AN  IMPLE¬ 
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*  FOCUS  OIM  THE  ABSTRACTION 
CJE  **IM  OBJ  EOT  BY  SUPRESS I  MO 
THE  DETAILS 

*  PREVENT  HIQH  LEVEL-  DECISIONS 
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I _ EVEI _  CHARACTER I ST I OS 
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DATA 


PROBLEM  SPACE 


RESULTS 


SOLUTION  SPACE 

•  * 

From  the  Programming  Language  Landscape  by  Henry  Ledgard  and  Michael  Marcet 
*c)  1981  Science  Research  Associates,  Inc.  Reproduced  by  permission  of 
the  publisher 


Figure  5-1:  Model  for  a  Typical  Programming  Task 
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ADA  DESIGN  GOALS 


*  RECOGNITION  OF  THE  IMPOR¬ 
TANCE  OF  PROGRAM  RELIABILITY 
AND  MAINTAINABILITY 


*  CONCERN  FOR  PROGRAMMING 
AS  A  HUMAN  ACT I V I TY 


*  EFFICIENCY 
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LANGUAGE  REQUIREMENTS 
< STEELMAN > 

*  STRUCTURED  CONSTRUCTS 

*  STRONG  TYPING 

*  RELATIVE  AND  ABSOLUTE 
PRECISION  SPECIFICATION 

*  X  NFORMAT I ON  HIDING  AND 
DATA  ABSTRACT  X  ON 

*  CONCURRENT  PROCESSING 

*  EXCEPTION  HAND! _ I NS 

*  GENERIC  DEFINITION 

*  MACHINE  DEPENDENT 
FAC ILITI ES 
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ADA  FROM  -riHE  TOP  DOWN 

*  ADA  SYSTEMS  ARE  COMPOSE 

—  SUBPROGRAMS 
—  PACKAGES 
--  TASKS 

*  ALL  PROGRAM  UNITS  HAVE 
TWO  PART  STRUCTURE 

—  SPECIFICATION  (VISIBLE  PART) 

—  BODY  (HIDDEN  PART) 


An  Overview  of 
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Figure  6-7:  Nesting  Ada  Program  Units 
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ADA  FROM  "THE!  BOTTOM  UP 

*  ALL  CONSTRUCTS  ARE  BU I  I — T 
FROM  £*  STANDARD  OR  EXTENDED 
CHARACTER  SET  <ASCI I > 

*  LEXICAL  UNITS  INCLUDE 

—  IDENTIFIERS 
—  NUMERIC  LITERALS 
—  CHARACTER  LITERALS 
—  STRINGS 
—  DELIMITERS 
—  COMMENTS 
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DEF INITI ONS 


*  A  TYPE  CHARACTER I ZES 

—  A  SET  OF  VALUES 

—  A  SET  OF  OPERATIONS  APPLICABLE  TO  THOSE  VALUES 

*  ADA  CLASSES  OF  TYPES 
I NCLUDE 

—  SCALAR 

-  INTEGER 

-  REAL 

-  ENUMERATION 
—  COMPOSITE 

-  ARRAY 

-  RECORD 
—  ACCESS 

—  PRIVATE 

—  SUBTYPE  AND  DERIVED  TYPE 
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DECL.ARAT  I  ONS 


*  CREATE  OBJECTS  OF 
TYPE 


*  ADA  DECLARATIONS 

—  VARIABLES 
—  CONSTANTS 
—  DYNAMIC  CREATION 


A  GI VEN 


PERM  X  T 
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NAMES 


*  DENOTE  DECLARED  ENTITIES 


*  MAY  BE  OVERLOADED 


*  ARE  STRONGLY  TYPED 


An  Overview  of  the  Language 

24 

9 


^r.rnnpuV*£  (JN  j*  eonrn 


Software  Engineering  with  Ada 


OPERATORS  AND  EXPRI 


I  ONS 


*  PREDEF I  NEED  OPERATORS  INCLUDI 


—  EXPONENT I AT I N6 

—  MULTIPLYING 

—  UNARY 

—  ADDING 

—  RELATIONAL 

—  LOGICAL 

—  MEMBERSHIP 


* 

mod 

+• 

not 

* 

<■ 

and 

and  then 
in 


/ 

rent 

abs 

/» 

> 

or 

or  el  se 
not  in 


«c 

< 

>=> 


*  OPERATOR  SYMBOLS  MAY  Bl 
OVERLOADED 
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STATEMENTS 

*  PROV/ 1 DE  CONTROL  AND  ACTION 

*  ADA  STATEMENTS  INCLUDE 

—  SEQUENTIAL 

-  ASSISNMENT 

-  NULL 

-  SUBPROGRAM  CALL 

-  RETURN 

-  BLOCK 

—  CONDITIONAL 

-  IF 

-  CASE 

—  ITERATIVE 

-  LOOP 

-  EXIT 

—  OTHER  STATEMENTS 

-  ENTRY  CALL  -  RAISE 

-  ACCEPT  -  CODE 

-  ABORT  -  GOTO 

-  DELAY 

-  SELECT 
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PACKAGES 


*  PERMIT  THE  COLLECT  X  OH  OE 

GROUPS  OE  LOGICALLY  RELATED 
ENT ITT ES 

*  DIRECTLY  SUPPORT  I NFORMAT ION 

HIDING  AND  ABSTRACTION 

*  RERMIT  AN  INDUSTRY  OE 

SOFTWARE  MODULES 
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TASKS 

*  PERMIT  COMMUNICATING 
SEQUENTIAL.  PROCESSES 

*  USE  THE  CONCEPT  OF  A 
RENDEZVOUS 

*  SPECIAL  STATEMENTS  ARE 
PROVIDED  FOR  TASK  CONTROL 
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XCEPTION  H^rvIDL  ING 


*  PERMITS  ERRORS  TO  BE 

CAPTURED  FOR  GRACEFUL 
DEGRADAT I ON 

*  IS  BLOCK  STRUCTURED 

*  EXCEPTIONS  MAY  BE  PRE¬ 

DEFINED  OR  USEFt  DEER  I  NED 
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REPRESENTATION  SPECIF ICATIONS 

*  F^EF^r-JIT  MAPP  I  fNJCB  THE:  L_  t>4  C3  LJ  F*  <S  E 
TO  THE  UNDERLYING  MACHINE 

*  INCLUDE  SPECIFICATION  OE 

—  LENGTH 

—  ENUMERAT I ON  TYPE  REPRESENTATION 
—  RECORD  TYPE  REPRESENTATION 
—  ADDRESS  SPECIFICATION 

*  PERM X  T  ACCESS  TO 

—  INTERRUPTS 

—  IMPLEMENTATION  DEPENDENT  FEATURES 
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SUMMARY  DF  l_AI\ISLJAGE 
CHARACTER  I  ST  I  CCS 


*  GENERAL  PURPOSE 


*  EMPHAS I S  ON  RELIABILITY 
AND  MA I NTA I NAB I L I T Y 


*  DIRECTED  TOWARD  EFFICIENT 
LISE  FOR  LARGE  ,  FREQUENTLY 
MODIFIED  SYSTEMS 

* 

*  INCORPORATES  TME  BEST  CJE 

E  X  ISTING  SOFTWARE  TECHNOLOGY 

*  ENCOURAGES  AMO  ENFORCES 
SOFTWARE  EM  13  I  NEER  X  MS 

PR  I  MS  X  El _ ES 


An  Overview  of  the  Language 
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In  the  devel  opmen t  o-f  our-  Lander - 

standi  ng  o-f  comp  1  ex  phenomena  , 
the  most  powerful  -tool  avaii  1  aib  1  e 
-to  the  humain  i  ntel  1  ect  i  s 
abstract!  on.  Abstraic  t  i  on  i —  i  s  e  s 

■f  r-om  ca  r*ecogn  i  t  i  on  o-f  si  mi  1  atr - 

x -t  x  between  certain  objects, 

si  t  uet  i  ons  or—  processes  in  the 
real  wor-1  d  ,  and  the  dec  i  si  on  t  o 

concentrate  on  these  si  mi  1  ai - 

i t i es ,  and  t o  i gnor e  the 
d  i  -f  -f  er  ences  . 

C.A.R.  Hoare 

Notes  on  Data  Structuring 


35 


X 


«*  JWOJ  aSS  to  HO  $y*4k<\QiUta'lJ 


Software  Engineering  with  Ada 


K 


DEFINE  THE  PROBLEM 


*  GIVEN  A  BINARY  TREE, 
COUNT  ITS  LEAVES 


jptnm»rx»W£>  on  ss«c*)pif  « 
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COUNT  I  lv|C3  LEAVES 

*  IF  the;  TREE  IS  a  L_E#^E 

NUMBER_OF_LEAVES (TREE)  =  1 

*  I E  THE  TREE  COME I STS 
OE  TWO  SUBTREES 

NUMBER_OF_LEAVES (TREE)  = 

NUMBER_OF_LEAVES  <RIGHT_SUBTREE>  * 
NUMBER  OF  LEAVES (LEFT  SUBTREE) 
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\ 

ASSUMPTIONS  ABOUT  THE  SOLUTION 


*  THE  I MPLEMENT AT I ON 
LANGUAGE  CONTAINS  BAS I C 
CONTROL  STRUCTURES 

—  SEQUENTIAL 
—  CONDITIONAL 
--  ITERATIVE 

*  THERE  ARE  NO  PREDEFINED 
OBJECTS  OR  OPERATIONS 


*  THE  IMPLEMENTATION 

I ANGUAGE  HAS  FACILITIES 

EOF?  CREATING  OBJECTS 
AND  OPERAT X  OHS 


The  First  Design  Problee 
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DEVELOP  AN  INFORMAL  STRATEGY 


KEEP  A  PILE  OF  THE  PARTS  OF  THE  TREE  THAT  HAVE  NOT  YEt 
BEEN  COUNTED.  INITIALLY,  GET  A  TREE  AND  PUT  IT  ON  THE 
EMPTY  PILE;  THE  COUNT  OF  THE  LEAVES  IS  INITIALLY  SET  TO 
ZERO.  AS  LONG  AS  THE  PILE  IS  NOT  EMPTY,  REPEATEDLY  TAKE 
A  TREE  OFF  THE  PILE  AND  EXAMINE  IT.  IF  THE  TREE  CONSISTS 
OF  A  SINGLE  LEAF,  THEN  INCREMENT  THE  LEAF  COUNTER  AND 
THROW  AWAY  THAT  TREE.  IF  THE  TREE  IS  NOT  A  SINGLE  LEAF 
BUT  INSTEAD  CONSISTS  OF  TWO  SUBTREES,  SPLIT  THE  TREE 
INTO  ITS  LEFT  AND  RIGHT  SUBTREES  AND  PUT  THEM  BACK  ON 
THE  PILE.  ONCE  THE  PILE  IS  EMPTY,  DISPLAY -THE  COUNT  OF 
THE  LEAVES. 
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11.  Since  it  is  a  leaf,  count  it  - 

and  throw  away  the  tree 


IT. 


Since  the  pile 
we  can  display 


i  s 
the 


empty, 

count 


Figure  7-2:  Example  of  Counting  the  Leaves 
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The  First  Design  Problem 


LEAF  COUNT 


Initially: 


0 


Take  a  tree  o-f-f  the  pile  # 

and  examine  it 


Since  it  is  a  tree,  split  it 
and  return  the  subtrees 


Take  a  tree  o-f-f  the  pile 
and  examine  it 


Since  it  is  a  lea-f.  count  it  1 

and  throw  away  the  tree 


Take  a  tree  o-f-f  the  pile 
and  ex amine  it 


.  Since  it  is  a  tree,  split  it 
and  return,  the  subtrees 


8.  Take  a  tree  cf-f  the  pile 
and  examine  it 


*?.  Since  it  is  a  1  ear .  count  it 
and  throw  away  the  tree 
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FORMALIZE  THE  STRATEGY 

IDENTIFY  OBJECTS  AND  THE  X  Ft 
ATTR I BUTES 


KEEP  A  PILE  OF  THE  PARTS  OF  THE  I REE  THAT  HAVE  NOT  YET 
BEEN  COUNTED.  INITIALLY,  GET  A  IREE  AND  PUT  I I  ON  THE 
EMPIY  PILE  ;  THE  CQUNI  OF  THE  LEAVES  IS  INITIALLY  SET  TO 
ZERO.  AS  LONG  AS  THE  PILg  IS  NOT  EMPTY,  REPEATEDLY  TAKE 
A  I5ii  OFF  THE  PILE  AND  EXAMINE  IJ .  IF  THE  TREE  CONSISTS 
OF  A  SINGLE  LEAF  ,  THEN  INCREMENT  THE  LEAF  COURIER  AND 
THROW  AWAY  THAT  IREE.  IF  THE  IREE  IS  NOT  A  SINGLE  LEAF 
BUT  INSTEAD  CONSISTS  OF  TWO  SUBIREES,  SPLIT  THE  IREE 
INTO  ITS  LEFT  AND  RIGHT  SUBIREES  AND  PUT  IHEM  BACK  ON 
THE  PILE.  ONCE  THE  PILE  IS  EMPTY,  DISPLAY  THE  COUNI  OF 
THE  LEAVES. 


/**r  "t.f*  ON  or  SS»  C (>KI|  H 
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the:  objects  CJE  INTEREST  i^RE 

*  l_Ef=kE_COLJlNl“r 

*  F>  I  L_E 

*  I _ EFT _ SUBTREE 

R I GHT_SUBTREE 
TREE 
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FORMALIZE  THE  STRATEGY 

IDENTIFY  OPERATIONS  OIn| 
THE  OBJECTS 


KEEP  A  PILE  OF  THE  PARTS  OF  THE  TREE  THAT  HAVE  NOT  YET 
BEEN  COUNTED.  INITIALLY,  GEJ  A  TREE  AND  PL?I  IT  ON  THE 
EMPTY  PILE;  THE  COUNT  OF  THE  LEAVES  IS  INITIALLY  SEJ  IQ 
ZERO.  AS  LONG  AS  THE  PILE  IS  NOT  EMPTY ,  REPEATEDLY  JAKE 
A  TREE  OFF  THE  PILE  AND  EXAMINE  IT.  IF  THE  TREE  CONSISTS 
OF  A  SINGLE  LFAF,  THEN  INCREMENT  THE  LEAF  COUNTER  AND 
THROW  AWAY  THAT  TREE.  IF  THE  TREE  IS  NOT  A  SINGLE  LEAF 
BUT  INSTEAD  CONSISTS  OF  TWO  SUBTREES,  SPLIT  THE  TREE 
INTO  ITS  LEFT  AND  RIGHT  SUBTREES  AND  PUI  THEM  BACK  ON 
THE  PILE.  ONCE  THE  PILE  IS  EMPTY,  DISPLAY  THE  COUNT  OF 
THE  LEAVES. 


The  First  Design  Problem 
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the:  dperat  x  oms  oe  i  nterest  are 


LEAF  COUNT 


—  DISPLAY 


INCREMENT 


—  ZERO 


*  R  I  EE 


—  IS  NOT  EMPTY 


—  PUT 


—  PUT  INITIAL 


TAKE 


SUBTREE 


R  I  SI— IT SUBTREE 


TREE 


—  GET  INITIAL 


—  IS  SINGLE  LEAF 


—  THROW  AWAY 


The  First  Design  Problem 
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FORMAL I ZE  THE  STRATEGY 

ESTABL  I  SM  THE  INTERFACES 

i 

1 

package  COUNTER  JPACKAGE  is  j 

) 

type  COUNTER_TYPE  is  limited  private; 
procedure  DISPLAY  (COUNTER  :  in  COUNTER_TYPE) ; 

procedure  INCREMENT (COUNTER  :  in  out  COUNTER_TYPE> ; 
procedure  ZERO  (COUNTER  :  out  COUNTER__TYPE )  ; 

pr i vate 

end  COUNTER_PACKAGE; 
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FORMALIZE  THE 

ESTABLISH  THE 


with  TREE.PACKAGE; 
package  PILE.PACKAGE  is 

type  PILE_TYPE  is  limited  private; 


function 

IS.NOT.EMPTY (PILE 

• 

• 

in 

PILE. 

.TYPE)  return  BOOLEAN 

procedure 

PUT 

(TREE 

• 

in 

out 

TREE. 

.PACKAGE. TREE.TYPE; 

ON 

in 

out 

PILE. 

.TYPE) ; 

procedure 

PUT_ INITIAL 

(TREE 

in 

out 

TREE. 

.PACKAGE- TREE_TYPE; 

ON 

in 

out 

PILE. 

.TYPE) ; 

procedure 

TAKE 

(TREE 

out 

TREE. 

.PACKAGE. TREE.TYPE; 

OFF 

; 

i  n 

out 

PILE. 

.TYPE) ; 

private 


end  PILE.PACKAGE; 


The  First  I>esign  Problem 


M 
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FORMAL  X  ZE  THE  STRATEGY 

EES3T  ABI _ I  SH  THE  INTERFACES 


package  TREE_PACKAGE  is 

type  TREE_TYPE  is  limited  private; 


procedure 

GET_INITIAL 

(TREE 

• 

• 

out 

TREE, 

.TYPE) 

function 

IS_SINGLE_LEAF (TREE 

• 

• 

in 

TREE. 

TYPE) 

return  BOOLEAN; 

procedure 

SPLIT 

(TREE 

in  out 

TREE. 

.TYPE; 

LEFT_ INTO 

out 

TREE. 

TYPE; 

RIGHT_INTO 

out 

TREE. 

TYPE) 

procedure 

THROW_AWAY 

(TREE 

in  out 

TREE. 

.TYPE) 

pr i vate 


end  TREE_PACKAGE; 
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FORMALIZE  THEE  STRATEGY 

IMPLEMENT  THE  OPERAT X  OHS 


with  COUNTER_PACKAGE 
•-  use  COUNTER  PACKAGE 


9 


9 


P I LE_P ACKAGE ,  TREE_P ACK AGE ; 
P I LE_P ACK AGE ,  TREE_P ACKAGE; 


procedure  COUNT_LEAVES_ON_BINARY_TREE  is 


LEAF_CDUNT 

LEFT_SUBTREE 

PILE 

R I GHT_SUBTREE 
TREE 


COUNTER_T YPE ; 

TREE_TYPE; 

PILETYPE; 

TREE_TYPE; 

TREE_TYPE; 
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begin 

GET_INITIAL (TREE) ; 

PUT_INITIAL (TREE,  ON  =>  PILE); 

ZERO (LEAF_COUNT) ; 
while  IS_NOT_EMPTY (PILE) 
loop 

TAKE  (TREE,  OFF  *=>  PILE)  J 
i-f  IS_SINGLE_LEAF  (TREE)  then 
INCREMENT (LEAF_COUNT> ; 

THROW_AWAY (TREE) ; 
el  se 

SPLIT (TREE, 

LEFT_INTO  =>  LEFT _ SUBTREE, 

R I6HT_ INTO  ->  RIGHT_SUBTREE> ; 
PUT (LEFT_SUBr PEE,  ON  =>  PILE); 

PUT (RIGHT_SUBTREE,  ON  =>  PILE); 
end  if; 
end  1 oop ; 

DISPLAY (LEAF_COUNT) ; 
end  COUNT_LEAVES_ON_BINARY_TREE; 


The  First  Design  Probl 
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DATA  TYPES  ADDRESS 

*  MAINTAINABILITY 

—  THE  NEED  TO  DESCRIBE  OBJECTS  WITH  A  FACTORIZATION 
OF  PROPERTIES 

a*  READAB  ILI  TY 

—  THE  NEED  TO  SAY  SOMETHING  ABOUT  THE  PROPERTIES 
OF  OBJECTS 

ak  REI _ X  AB  ILI  TY 

—  THE  NEED  TO  GUARANTEE  THAT  PROPERTIES  OF 
OBJECTS  ARE  NOT  VIOLATED 

ak  REDUCTION  OF  COMF^I _ EE  X  I  TV* 

—  THE  NEED  TO  HIDE  IMPLEMENTATION  DETAILS 


Data  Abstraction  and  Ada's  Types 
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Ada 


A  TYPE  CHARACTER  I  ZEIS 

*  A  SET  OF  VALUES 

*  A  SET  OF  OPERATIONS 
APPLICABLE  TO  OBJECTS 
OF  THE  NAMED  TYPE 


I 


I 
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i. 

1 


ADA  CLASSES  OF  TYPES  I MCI _ UDE 

*  SCALAR 

—  THE  VALUES  HAVE  NO  COMPONENTS 

m 

*  COMPOS  X  TE 

—  THE  VALUES  CONSIST  OF  COMPONENT  OBJECTS 

*  ACCESS 

—  THE  VALUES  PROVIDE  ACCESS  TO  OTHER  OBJECTS 

*  PRIVATE 

—  THE  VALUES  ARE  NOT  KNOWN  TO  A  USER 

*  SUBTYPE  AND  DERIVED  TYPE 

*  TASK  TYPE 


Data  Abstraction  and  Ada’s  Types 
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INTEGER  TYR’ES 

*  INTRODUCE  *=*  SETT  OF 
CONSECUTIVE  EXACT  INTEGERS 

*  USER-DEFINED  TYPES 


type 

L I NE_COUNT 

is 

range 

0  ..  66; 

type 

INDEX 

is 

range 

55  . .  77; 

type 

FATHOM 

i  s 

range 

-5000  . .  0; 

type 

TOTAL_ELEMENTS 

i  s 

range 

1  ..  (ROWS*COLUMNS) ; 

Data  Abstraction  and  Ada’s  Types 
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SUMMARY  OF  INTEGER  D^T<=*  TYPES 

*c  SET  CDF"  VALUES 

—  A  SET  OF  CONSECUTIVE  INTEGERS 

*  STRUCTURE 

—  range  L  .  .  U 

WHERE  L  AND  U  ARE  STATIC  EXPRESSIONS 
REPRESENTING  LOWER  AND  UPPER  BOUNDS 

*  SET  OE  OPERATIONS 

—  ADDING  + 

—  ASSIGNMENT  :* 

—  EXPONENTIATING  ** 

--  EXPLICIT  CONVERSION 
—  MEMBERSHIP  in 

—  MULTIPLYING  * 

—  QUALIFICATION 
—  RELATIONAL 

> 

% 

—  UNARY  + 


not  i  n 

/  mod  rem 

/-  <  <  = 

>° 

—  abe 
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SUMMARY  OF  REAL  DATA  TYPES 

*  SET  OE  VALUES 

—  APPROXIMATIONS  TO  THE  REAL  NUMBERS 

*  STRUCTURE 

—  digits  N  range  L  ..  U 
SPECIFIES  RELATIVE  ACCURACY 

WHERE  N  IS  A  STATIC  INTEGER  REPRESENTING 
THE  NUMBER  OF  SIGNIFICANT  DIGITS  AND 
WHERE  L  AND  U  ARE  STATIC  EXPRESSIONS 
REPRESENTING  LOWER  AND  UPPER  BOUNDS 

—  delta  N  range  L  ..  U 
SPECIFIES  ABSOLUTE  ACCURACY 
WHERE  N  IS  A  STATIC  REAL  VALUE 
REPRESENTING  THE  DELTA  AND 

WHERE  L  AND  U  ARE  STATIC  EXPRESSIONS 
REPRESENTING  LOWER  AND  UPPER  BOUNDS 


Software  Engineering  with  Ada 


*e  SEIT  OF  OPERATIONS 


—  ADDING  + 

—  ASSIGNMENT  := 

—  EXPONENTIATING  ** 

—  EXPLICIT  CONVERSION 

—  MEMBERSHIP  in 

—  MULTIPLYING  * 

—  QUALIFICATION 

—  RELATIONAL 


not  in 
/  mod 


/=  < 


>  >= 


—  UNARY 


abs 


I  BUT 


—  FIXED  POINT  ATTRIBUTES 
ADDRESS  SIZE 

BASE  MACHINE_OVERFLOWS 

FIRST  SAFE_SMALL 

LAST  SAFE  LARGE 


rem 


<  = 
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—  FLOATING  POINT  ATTRIBUTES 
ADDRESS 
BASE 
DIGITS 
EMAX 
EPSILON 
FIRST 
LARGE 
LAST 

MACH I NE_EMAX  SIZE 
MACH I NE_EM I N  SMALL 

*  PREDEFINED  T  V'f=>EE!E5 

DURATION 

FLOAT 

LONG_FLOAT 
SHORT  FLOAT 


MACH I NE_MANT I SSA 

MACHINE_OVERFLQWS 

MACHINE_RADIX 

MACHINE_ROUNDS 

MANTISSA 

SAFE_EMAX 

SAFE_LARGE 

SAFE  SMALL 
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ENUMERATION  TYPES 

*  INTRODUCE  ORDERED  S 

OF  DISTINCT  VALUES 

♦  USER  — DEF  I  NEED  TYPES 

type  CARD_SUIT  is  (CLUBS,  DIAMONDS, 

HEARTS,  SPADES); 


type 

GEAR  _POS I T I ON 

i  s 

(DOWN, 

UP) ; 

type 

MOTOR_STATE 

i  s 

(OFF, 

FORWARD,  REVERSE) ; 

type 

HEX_DIGIT 

i  s 

( '  A  ’  , 

'B',  'C',  'D',  'E' ,  'F'>; 

!#.»*«<  ON 
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SUMMARY  OF  ENUMERATION  TYFES 

*  SFT  OF  VALUES 

—  ORDERED  SET  OF  DISTINCT  VALUES 

*c  STRUCTURE 

—  (E_0,  E_l,  ...  E_n> 

WHERE  E_i  IS  AN  ORDERED  ENUMERATION 
LITERAL 

*  SET  OF  OPERATIONS 

—  ASSIGNMENT 
—  MEMBERSHIP 
—  QUALIFICATION 
—  RELATIONAL 


i n  not  i n 

=  /=  <  <= 

>  >= 
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*  ATTRIBUTES 


ADDRESS 

PRED 

BASE 

SIZE 

FIRST 

SUCC 

IMAGE 

VAL 

LAST 

VALUE 

POS 

WIDTH 

*  PREDEFINED  TYPES 

BOOLEAN 

CHARACTER 


4 

( 
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Figure  5-5:  Composite  Data  Types 
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TYPES 

*  INTRODUCE  AN  X  NDEXED 
COLLECTION  OF  SIMILAR  TYPES 

*  CONSTRAINED  TYPES 


type 

GAME_BOARD 

i  s 

array 

(1  ..  8, 

I-* 

• 

> 

CD 

0 

-H 

CHESS  _P I ECES ; 

type 

LIST 

is 

array 

(INTEGER 

range  —100 

.  .  10)  of  FLOAT; 

type 

VECTOR 

i  s 

array 

(INTEGER 

range  1  . . 

MAXIMUM, INDEX) 

of  FLOAT; 


type  LONG_ARRAY  is  array  (EX TENDED, INDEX)  of  FLOAT; 

type  SHORT,ARRAY  is  array  ( EX TENDED, INDEX  range  10  ..  49)  of  FLOAT; 


type 

RECORD_OF_WORK 

i  s 

array(DAY  range 

MONDAY  v.  FRIDAY) 

of 

HOURS; 

type 

OVERTIME 

is 

array(DAY  range 

SATURDAY  . .  SUNDAY ) 

of 

HOURS; 

type 

FULL_WEEK 

i  s 

array (DAY) 

of 

HOURS; 

*  UNCONSTRAINED  TYPES 

type  BIT_VECTOR  is  array (INDEX  range  <>)  of  BOOLEAN; 

type  MATRIX  is  array (INDEX  range  <>,  INDEX  range  <>)  of  FLOAT; 
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SUMMARY  OF  ARRAY  TYF>ES 

I 

*  SET  OE  VALUES 

—  INDEXED  COLLECTION  OF  SIMILAR  TYPES 

*  STRUCTURE 

—  array  (INDEX _ )  a-f  COMPONENT 

AN  UNCONSTRAINED  ARRAY  TYPE  j 

:  j 

WHERE  INDEX...  IS  A  LIST  OF  ! 

I 

UNCONSTRAINED  DISCRETE  TYPES 

—  array  I NDEX  _CONSTR  A I  NT  o-f  COMPONENT 
A  CONSTRAINED  ARRAY  TYPE 

WHERE  I NDE X _CONSTR A I NT  IS  A  LIST  V 

OF  DISCRETE  TYPES  | 

I 

I 

l< 

I 

I 

f 

* 
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*  SET  OF  OPERATIONS 


—  ADDINS 


—  AGGREGATES 


—  ASSIGNMENT 


—  EXPLICIT  CONVERSION 


—  INDEXING 


—  LOGICAL 


—  MEMBERSHIP 


—  QUALIFICATION 


RELATIONAL 


—  UNARY 


*  ATTR I BUTES 


ADDRESS 


BASE 


FIRST 


FIRST ( J> 


LAST 


LAST ( J ) 


LENGTH 


LENGTH<J> 


RANGE 


SIZE 


*  PREDEFINED 


STRING 


not  in 
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RECORD  TYPES 

*  INTRODUCE  <=»  COLLECTION 

OF  (POTENTIALLY)  DIFFERENT 
COMPONENT  TYPES 

*  SIMPLE  RECORD  TYPES 

c 

?  type  DAY_OF_YEAR  is 

*  record 

r 

i  DAY  j  INTEGER  range  1  ..  31; 

•*  • 

£ 

i  MONTH  :  MONTH  JMAME; 

Zr 

YEAR  :  NATURAL; 
end  record; 


type  CPU_FLAGS  i  s 
record 

CARRY  :  BOOLEAN; 

INTERRUPT  :  BOOLEAN; 
NEGATIVE  :  BOOLEAN 
ZERO  :  BOOLEAN 

end  record; 
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type  CPU_ST ATE  is 
record 

PRIORITY  :  INTEGER  range  0  . .  7; 
FLAG  :  CPU_FLAGS; 

end  record; 


*  DISCRIMINATED  RECORDS 

type  SQUARE (SIDE  :  INTEGER  :=  4)  is 
record 

MATRIX  ;  SIMPLE_ARRAY ( 1  ..  SIDE,  1  ..  SIDE); 
end  record; 


type  TWO_SQUARES (LENGTH  :  INTEGER)  is 
record 

FIRST  :  SQUARE (LENGTH) ; 

SECOND  ;  SQUARE (LENGTH) ; 
end  record; 
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* 


ftlvIT  RECORDS 

type  AIRCRAFT_RECORD (KIND  t  AIRCRAFT_ID  UNKNOWN)  is 
record 

AIRSPEED  :  SPEED; 

HEADING  :  DIRECTION; 

LATITUDE  :  COORDINATE; 

LONGITITUDE  :  COORDINATE; 

case  KIND  is 

when  CIVILIAN  => 

nul  1 ; 

when  MILITARY  => 

CLASSIFICATION  :  MILITARY_TYPE; 

SOURCE  :  COUNTRY; 

when  FOE  !  UNKNOWN  => 

THREAT  :  THREAT_LEVEL ; 

end  case; 
end  record; 
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SUMMARY  OF  RECORD  TYRES 


*  SET  OF  VALUES 


—  COLLECTION  OF  (POTENTIALLY)  DIFFERENT  COMPONENTS 


*  STRUCTURE 


—  record 


component _1 i st 


end  record 


WHERE  COMPONENT  LIST  NAMES  THE  ELEMENTS  OF 


THE  RECORD 


SET  OF  OPERATIONS 


—  AGGREGATES 


—  ASSIGNMENT 


—  EXPLICIT  CONVERSION 


—  MEMBERSHIP 


not  in 


—  QUALIFICATION 


—  RELATIONAL 


—  SELECTION 
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* 


ATTRI BUTES 

ADDRESS  LAST_B I T 

BASE  POSITION 

CONSTRAINED  SIZE 
FIRST  BIT 
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ACCESS  T  YPES 

*  RROV  IDE  DYNAMIC  ACCESS 
TO  OTHER  OBJECTS 

*  S I HREE  TTRES 

type  BUFFER  is 
record 

MESSAGE  :  STRING (1  ..  10); 

PRIORITY  :  INTEGER  range  1  ..  100; 

end  record; 

t>pe  BUFFER_PO INTER  is  access  BUFFER; 

*  I  ixICOMREETE  TYPES 

type  NODE; 

type  LINK  is  access  NODE; 
type  NODE  is 
record 

LEFT  :  LINK; 

VALUE  :  STRING (1  ..  5); 

RIGHT  :  LINK; 
end  record; 
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SUMMARY  OF  ACCESS  TYPES 

*  SET  OF  VALUES 

—  ACCESS  VALUES  TO  DESIGNATED  OBJECTS 

*  STRUCTURE 

—  access  subtype_indi cati on 

WHERE  SUBTYPE_ INDICATION  IS  THE  TYPE  OF 
THE  DESIGNATED  OBJECT 

*  SET  OF  OPERATIONS 

—  ALLOCATION 
—  ASSIGNMENT  : = 

—  EXPLICIT  CONVERSION 
—  INDEXING 

—  MEMBERSHIP  in  not  in 

—  QUALIFICATION 

—  RELATIONAL  =  /= 

—  SELECTION 

JK  ATTRIBUTES 

ADDRESS  SIZE 

BASE  STORAGE  SIZE 
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PRIVATE 


*  DEF  I  HE!  ABSTRACT  E>*=*T^ 

TYPES  WHOSE  VALUES 
HIDDEN  FROM  THE:  USER 

*  1 _ I  FT  TTEID  RRXV^TE:  TYRES 


package  PASSWORD  is 

type  VALUE  is  limited  private; 

function  IS_VALID (CODE  :  in 

return  BOOLEAN; 

procedure  SET  (CODE  :  out 

AUTHOR I Z ATI QN_LEVEL  :  in 

private 

type  VALUE  is  new  STRING (1  ..  40); 
end  PASSWORD; 


VALUE) 

VALUE; 
NATURAL) ; 
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*  PRIVATE  TYF>E:S 

package  RANDOM  is 

type  NUMBER  is  private; 

procedure  SET (SEED  :  in  INTE6ER;  VALUE  :  in  out  NUMBER); 
■function  UNIFORM_RANDOM  return  NUMBER; 
pri vate 

type  NUMBER  is 
record 

SEED_VALUE  :  INTEBER; 

VALUE  :  FLOAT; 

end  record; 
end  RANDOM; 
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SUMMARY  OF  PRIVATE  DATA  TV’FETS 

*  SET  OF  VALUES 

—  HIDDEN  FROM  THE  USER 


—  HIDDEN  FROM  THE  USER 

*  SET  OF  OPERATIONS 

—  EXPLICIT  CONVERSION 
—  MEMBERSHIP 
—  QUALIFICATION 
—  FOR  LIMITED  PRIVATE  TYPES 

ONLY  THOSE  OPERATIONS  DEFINED  IN  THE 
CORRESPONDING  PACKAGE  SPECIFICATION  ARE 
AVAILABLE 

—  FOR  PRIVATE  TYPES 

OPERATIONS  OF  ASSIGNMENT  AND  TEST  FOR 
EQUALITY  OR  INEQUALITY  ARE  AVAILABLE 
IN  ADDITION  TO  THOSE  DEFINED  IN  THE 
PACKAGE  SPECIFICATION 

*  ATTRIBUTES 

ADDRESS  BASE  SIZE 
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SUBTYPES  AND  DERIVED 


*c  PROV  X  DE  FURTHER  FACTORI  ZATION 
OF  TYRE  CHARACTERISTICS 

*  SUBTYPES 

—  RANGE  CONSTRAINT 

subtype  INDEX  is  NON_NEGATIVE  range  0  ..  10; 

—  ACCURACY  CONSTRAINT 

subtype  COARSE  is  WEIGHT  delta  10.0; 

—  INDEX  CONSTRAINT 

subtype  VECTORED  is  VECTOR  ( 1  ..  3); 

—  DISCRIMINANT  CONSTRAINT 

subtype  HEAT_SEN50R  is  SENSOR (KIND  =>  TEMPERATURE); 

*  DER I VED  TYPES 


type  MASS  is  new  FLOAT; 
type  WEIGHT  is  new  FLOAT ; 

type  BUDGET  is  new  FLOAT  range  0.0  ..  12_000.0; 


TYPE  CONSTRAINTS  FARES  STATIC; 
SUBTYPE  CONSTRAI NTS  NEED 
NOT  be  STATIC 
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DECLARAT I ONS 

*  sxmf=>i_e:  declarations 

DISTANCE  :  FLOAT; 

RESPONSE  :  CHARACTER; 

NUMBER  :  INTEGER; 

GRADES  :  arrayd  .  .  100)  orf  FLOAT; 

*  DECLARATIONS  WITH  CONSTRAINTS 

NAME  :  STRING (1  ..  40> ; 

BOTTOM  s  INTEGER  range  -10  ..  -1; 

*  DECLARATIONS  WITH  I  W  I  T  I 
VALUES 

RANGE  :  DISTANCE  :=  0.0; 

*  CONSTANT  DECLARAT I OHS 

F I RST_MONTH  :  constant  MONTH_NAME  :=  JANUARY; 

PI  :  constant  :=  3. 141_592_65; 

DIAMETER  :  constant  :=  4; 
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VALUES 

«  SIMPLE  VALUES  ARE  DENOTED 
BY  LITERALS 

—  INTEGER  NUMERIC  LITERAL  i_024 
—  REAL  NUMERIC  LITERAL  0. 39B_829_138 
—  ENUMERATION  LITERAL 
—  CHARACTER  STRING 
—  NULL  ACCESS  VALUE 
—  CHARACTER  LITERAL 
—  BASED  NUMERIC  LITERAL 


BLOCKED 
"WAREHOUSE" 
nul  1 
’b’ 

16# 1FFE# 


*  COMF^OS  I  te  y*=*i_lje:s  denoted 

BY  AGGREGATES 
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EXPRESS I ONS 


*  CREATE  INJIEIUI  VALUES  FROM 

PRIMARIES  AND  OPERATORS 


*  PRIMARI 


X  NCLUDE 


—  STRING  LITERAL 


—  NUMERIC  LITERAL 


—  NAME 


—  ALLOCATOR 


—  FUNCTION  CALL 


—  TYPE  CONVERSION 


—  QUALIFIED  EXPRESSION 


••prompt*' 


10. 125 


MATRIX  1 


new  COUNT’ (0,0, 0,0) 


COS (37.5) 


INTEGER (123. 9) 


COEFFICIENT’ (0.53) 


—  PARENTHESIZED  EXPRESSION  (3  **  4) 


—  NULL  VALUE 
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*  Brf=*S  I  C  OPERATORS  I  Ivl 
ORDER  OF  PRECEDENCE 


—  EXPONENTIATING  ** 


—  MULTIPLYING 


UNARY 


—  ADDING 


—  RELATIONAL 


—  LOGICAL 


and  then 


Dr  el se 


—  MEMBERSHIP 


not  i  n 
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SEQUENT  I  STATEMENTS 

*  ONE  STATEMENT  IS  EXECUTED 

AFTER  ANOTHER  I  M  *=»  I _ I  NEAR 

FASH I ON 

*  KINDS  OF  SEQUENTIAL 
I NCLUDE 

—  ASSIGNMENT 
—  NULL 

—  PROCEDURE  CALL 
—  RETURN 
—  BLOCK 

*  UJE  WILL  ALSO  CONS  X  DER  THE 
GOTO  I  INI  THIS  SECT  I  OKI 


o  oSi  KJ  NO 
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ASSIGNMENT  STATEMENTS 


*  REPLACE  TME  CURRENT  F  l_  U  El 

OF  VARIABLE  FROM  <=*M 

FXFRFSS  X  DM  VALUE 


*  T  YPE  OF  BOTH  S  X  DEES  OF  THE 
ASSIGNMENT  MUST  BE 
COMFIT I BLE 

*  #^SS  I  GNMENT  ST^TFMFMT  EXAM  f=>  L_  F  S 


JL 


VALVE_RECORD ( 1  ..  10) 

V0LTAGE_1 

MATRI X_ 1 

LOCAL_SCHEDULE. al  1 
SCHEDULER_TABLE (READY) 
VALVE_RECORD ( COUNT_ 1 ) . OPEN ) 
VALVE  RECORD (1  .  .  10) 


=  VALVE_REC0RD(6  ..  15); 

=  VOLT  AGE_2  +  24.0; 

=  MATRI X_2; 

=  COUNT’  (0,0, 0,0)  ; 

=  SCHEDUlER_TABLE (READY)  +  1; 
=  TRUE; 

=  VALVES’ (1  . .  10  => 


(NAME 

=  > 

"SPARE 

POSITION 

=  > 

" WAREHOUSE 

OPEN 

FALSE, 

FLOW_RATE 

=  > 

0. 0)  >  ; 
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UNCLASSIFIED 


PROCEEDINGS  PAPERS  OF  THE  AFSC  (AIR  FORCE  SYSTEMS 
COMMAND)  AVIONICS  STAND.. (Ill  AERONAUTICAL  SYSTEMS  D1V 
WRIGHT  PATTERSON  AFB  OH  DIRECTORATE  0.. 

C  A  PORUBCANSKY  NOV  82  F/G  9/2 


I-/*. 

NL 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BURtAU  OF  STANDARDS  196S-A 
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NULL  STATEMENT 


* 


XPL ICI 


STATES 


INACTION 


*  Mt_JI — I —  EXAMPLE 

null ; 
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RETURN  STATEMENT 


*  RETURN  CONTROL  FROM  |C» 
SUBPROGRAM 


PROCEDURE 


FUNCTION 


return; 

return  <expression>; 


*  A  SUBPROGRAM  MAY 

HAVE  MULTIPLE  RETURNS 


2*  PROCEDURE  EXAMPLI 


procedure  INSTALL (BUFFER  s  in  LINE; 


LIST  :  in  out  TABLE; 

TOP  s  in  out  POSITIVE)  is 


begin 


LIST (TOP  +1)  :=  BUFFER; 


for  INDEX  in  1  ..  TOP 


loop 


if  LIST (INDEX)  =  BUFFER  then 


return; 


end  if;  » 
end  1 oop ; 

TOP  s-  TOP  -*•  1; 
end  INSTALL; 
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BLOCK 

*  TEXTUAL.LY  ENCAPSULATES  A 
SEQUENCE  OF  STATEMENTS 

*  MAY  BE  NAMED  AND  HAVE  A 
LOCAL  EXCEPTION  HANDLE;  Ft 

*  BLOCK  EXAMPLES 

begin 

A  : «  B/C; 
exception 

when  NUMER I C_ERROR  *> 

A  :*  0.0; 

end; 


SWAP: 

declare 

TEMP  :  FLOAT; 
begin 

TEMP  :=  VOLTAGE, 1; 
VOLTAGE, 1  V0LTAGE.2; 
V0LTAGE_2  :»  TEMP; 
end  SWAP; 
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GOTO  STATEMENT 


*  UNCONDITIONALLY  C  AND 
UNGRACEFULLY >  TRANSFER 
CONTROL 

*  GOTO  EXAMPLE 

<  <  SHUT_DOWN >  >  ST ART_POWER_DOWN_SEQUENCE ; 


goto  SHUT.DOWNj 
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CONDITIONAL  STATEMENTS 


*  SELECTION  OF  ONE  OF  A 

J  NUMBER  OF  ALTERNATIVE 

t 

SEQUENCE  OF  STATEMENTS 

*  CONDITIONAL  STATEMENTS 
I NCLUDE 

—  IF 
—  CASE 
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STATEMENT 

SELECTS  ONE  OR  NONE  OF 
A  SEQUENCE  OF  STATEMENTS 
DEPEND  I  MG  OIM  THE  TRUTH 
VALUE  OE  ONE  OE  SEVERAL 
EXPRESS I ONS 

IE  EXAMPLES 

if  C0UNT_1  <  0  then 
COUNT _1  i-  0; 
end  if; 


if  VALVE_RECORD<l) .OPEN  then 
VALVE_REC0RD<2) .OPEN  TRUE; 

VALVE_RECORD ( 3 ) . OPEN  FALSE; 

else 

VALVE_RECORD (2) . OPEN  FALSE; 

VALVE_RECDRD (3) . OPEN  TRUE; 

end  if} 
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if  V0LTAGE,1  >  V0LTAGE_2  then 
V0LTAGE_1  VOLTAGE  2; 
elsif  V0LTAGE_1  <  VOLT AG£_2  then 
V0LTAGE_2  s*  VOLTAGE, 1; 
el  se 
nul  1 ; 
end  if; 
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CASE  STATEMENT 

*  SELECTS  ONE  SEQUENCE  of 
statements  BASED  ON  THE 
VALUE  OF  A  DISCRETE 
EXPRESSION 

*  CASE  EXAMPLES 

case  PROCESS J5TATE  is 

when  RUNNING  »>  SCHEDULERTABLE (RUNNING)  :=  1; 
IS_ACT2VE  :*  TRUE; 

when  READY  =>  SCHEDULER_T ABLE (READY)  s« 

SCHEDULERS  ABLE  (READY)  +  1; 
IS_ACTIVE  FALSE; 

when  BLOCKED  =>  SCHEDULER_TABLE (BLOCKED)  := 

5CHEDULER_T ABLE (BLOCKED)  +  1; 
I S_ ACTIVE  FALSE; 

when  DEAD  =>  SCHEDULER_TABLE (DEAD)  := 

SCHEDULERS  ABLE  (DEAD)  -*■  1; 

end  case; 
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case  COUNT _1  is 
when  1  = 

when  2  !  3  = 

when  5  . .  10  = 
when  others  = 

end  case; 


VALVE_REC0RD<C0UNT_1> .OPEN  :=  TRUE; 
VALVE_RECORD  <C0UNT_1 > . OPEN  s=  FALSE; 
VALVE.RECORDtCOUNT.l) .OPEN  FALSE; 
VALVE.RECORDtCOUNT.l) .OPEN  :=  TRUE; 
VALVE.RECORD ( COUNT. 1 > . FLOW.RATE  :=  1.0; 
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ITERATIVE  STATEMENTS 


*  PERMITS  A  SEQUENCE  OF 

STATEMENTS  TO  BE  EXECUTED 
ZERO  OF?  MORE  TIMES 


*  FORMS  OF  ITERATION  INCLUDE 

—  BASIC  LOOP 
—  FOR  LOOP 
—  WHILE  LOOP 


* 


ALSO  ASSOCIATED  WITH  THE 

I _ OOF  STATEMENT  IS  THE 

EXIT  STATEMENT 
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LOOP  EXAMPLES 


loop 

GET_S AMPLE; 

PROCESS_ SAMPLE ; 
end  loop; 

1  oop 

6ET_SAMPLE; 

exit  when  TEMP  >  MAX_TEMP; 
PROCESS_SAMPLE; 
end  loop; 

OUTER_LDOP: 

loop 


INNER_LOOPr 

loop 

■  •  • 

end  I NNER_LOQP ; 

end  OUTER_LOOP; 
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for  INDEX  in  RUNNING  ..  DEAD 
loop 

SCHEDULER_TABLE( INDEX)  :=  0; 
end  1 oop ; 

for  INDEX  in  reverse  T OT AL _ VALVES 
loop 

V ALVE_RECORD ( I NDEX ) . OPEN  : =  FALSE ; 
end  loop; 

for  INDEX  in  1  ..  COUNT_l 
loop 

m  m  m 

end  loop; 

for  I  in  VALVES ’RANGE 
loop 

•  »  ■ 

end  loop; 

while  (SCHEDULER_TABLE ( 1 ) . FLDW_RATE  >  10.0)  and  (not  ISJEMPTY) 

1  oop  « 

end  1  oop ; 
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SUBPROGRAMS 


*  ARE  THE  BASIC  EXECUTABLE  UNIT 


j  *  PROVIDE  ALGOR  X  TRIM  I CZ 

i 

i  ABSTRACTION 

-»j  - 

g  ; 

s 

*  ADA  SUBPROGRAMS  INCLUDE 


—  PROCEDURES 

—  FUNCTIONS 


Subprograms 
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Figure  10-2:  Model  of  an  Ada  Subprogram 
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PARAMET 


*  X  N 


*  OUT 


*  IN 


ER  MODES 


ONLY  THE  ACTUAL  VALUE  IS  USED;  THE  SUBPROGRAM 
CANNOT  MODIFY  THE  VALUE 


THE  SUBPROGRAM  CREATES  A  VALUE  BUT  DOES  NOT  USE 
THE  VALUE  OF  THE  ACTUAL  PARAMETER 

OUT 

THE  SUBPROGRAM  USES  THE  VALUE  FROM  THE  ACTUAL 
PARAMETER  AND  MAY  ASSIGN  A  NEW  VALUE  TO  IT 


Subprogram 
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SPECIFICATIONS 

*  SIMPLE  SPECIFICATIONS 

procedure  COUNT_LEAVES_ON_BINARY_TREE; 
procedure  PUSH  (ELEMENT  s  in  INTEGER; 

ON  i  in  out  BUFFER); 

procedure  ROTATE (POINT  s  in  out  COORDINATE; 

ANGLE  :  in  RADIANS); 

function  COS (ANGLE  :  RADIANS)  return  FLOAT; 
function  "*"(X,  Y  :  in  MATRIX)  return  MATRIX; 
function  RANDOM  return  FLOAT; 

*  SPEC I F I CAT I ONS  WITH  DEFAULTS 

procedure  PRINT (BANNER  :  in  STRING; 

CENTERED  s  in  BOOLEAN  :«  TRUE; 

SKI PIPAGE  s  in  BOOLEAN  :=  TRUE); 

*  OVERLOADED  SPEC IFI CAT I ONS 

procedure  SET (LISTING  :  in  BOOLEAN); 
procedure  SET (PIXEL  :  in  COLOR; 

FRAME  s  in  out  BUFFER); 
procedure  SET(PRIORITY  :  in  NATURAL); 
procedure  SET (ADDRESS  i  in  NATURAL); 

Subprograms 
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SUBPROGRAM  BOD I ES 

*  COMPLETE  THE  _ QOR I THM 

INTRODUCED  I M  THE  SPEC- 
IFI CAT I ON 

*  MAY  BE  SEPARATELY  COMPILED 

*  TAKE  THE  FORM 

specification 

begin 

sequence_of .statements 
(exception  part> 
end; 
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SUBPROGRAM  CALLS 

*  GIVEN  THE  FOLLOW X  MG 


PROCEDUR 

ES 

procedure 

SEARCH_FILE (KEY 

t 

in 

NAME; 

INDEX 

• 

• 

out 

FILE. INDEX); 

procedure 

SLEEP 

(TIME 

$ 

in 

DURATION 

10.0) ; 

procedure 

SORT 

(DATA 

* 

in  out 

NAMES; 

ORDER 

: 

in 

DIRECTION  :« 

ASCENDING) 

procedure  SORT 

(DATA 

s 

in  out 

NUMBERS; 

ORDER 

■ 

in 

DIRECTION  :« 

ASCENDING) 

procedure 

TURN_ON 

(LIGHT 

• 

a 

in 

LOCATION) ; 

*  POSITIONAL  PARAMETER  CALLS 

SEARCH.F I LE ("SMITH,  J",  RECORD_ENTRY> ; 

SLEEP  ( 120.  0); 

SORT (PERSONNEL .NAMES,  DESCENDING) 5 
SORT (GRADES,  ASCENDING); 

TURN.ON  <QFFICE_LIGHTS) ; 
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3fc  NAMED  PARAMETER  ASSOCIATION 

SEARCH_FILE (KEY  «>  "SMITH,  J", 

INDEX  ->  RECORD.ENTRY) ; 

SLEEP (TIME  *>  120.0); 

SORT (DATA  «>  PERSONNEL_DAT A ; 

ORDER  ->  DESCENDING); 

*  CAI _ I _ £3  WITH  DEFAULTS 

SORT ( PERSONNEL _DAT A) ; 

SLEEP; 

*  GIVEN  THE  FOLLOWING  FUNCTIONS 

function  COS  (ANGLE  s  in  RADIANS)  return  FLOAT; 

function  HEAT (SENSOR  s  in  SENSQR_NAME )  return  FLOAT; 

function  (X,  Y  :  in  MATRIX)  return  MATRIX; 

*  S3  I  M  1 1 _ AR  OPT  I  DNS  F^F=>F>I _ V 

DISTANCE  :«  LENGTH  t  COS (30.0); 

VALUE  :«  HEAT (SENSOR  *>  WING.TIP); 

SUM  s -  (FIRST_MATRIX,  SECOND .MATRIX) ; 

SUM  :=  FIRSTJ1ATRIX  +  SECOND _MATR I X ; 
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PACKAGES 


*  PERM  I T  THE  COL.L.ECTION  OF 
GROUPS  OF  LOGICALLY  RELATED 
ENTITIES 

*  DIRECTLY  SUPPORT  INFORMATION 
MIDI  IMG  AND  ABSTRACT  I  ON 

*  PERMIT  AN  I NDUSTRY  OF 
SOFTWARE  MODULES 


no 


Packages 


At  » 
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PACKAGE 


Figure  13-1:  Symbol  for  an  Ada  Package 
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PACKAGE  SPEC IFI CAT I ONS 


*  FORM  A  CONTRACT  BETWEEN 
THE  IMPLEMENTER  OF  THE 
PACKAGE  AND  THE  USER 

*  MAY  BE  SEPARATELY  COMP X LED 

*  TAKE  THE  FORM 

package  SOME_NAME  is 

•  mm 

* 

end  SOME_NAME; 

*  MAY  BE  FURTHER  D I V I DED 

—  VISIBLE  PART 
—  PRIVATE  PART 


Packages 
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PACKAGE  VISIBILITY 

*  given  the  following 

package  COMPLEX  is 

type  NUMBER  is  record 

REAL_PART  •  FLOAT; 

I MAG I NAR Y_P ART  s  FLDAT; 


end  record; 


function 

(A, 

B  : 

in 

NUMBER) 

return 

NUMBER 

1 .  function 

,,-M  (A, 

B  : 

in 

NUMBER) 

return 

NUMBER 

function 

"*"<A, 

B  : 

in 

NUMBER) 

return 

NUMBER! 

end  COMPLEX; 
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*  PACKAGES  AS  DECLARATIVE 
X  TEMS 

procedure  MAIN_PROGRAM  is 

procedure  FIRST  is  ...  end  FIRST; 
package  COMPLEX  is  ...  end  COMPLEX; 
package  body  COMPLEX  is  ...  end  COMPLEX; 
procedure  SECOND  is  ... 

procedure  THIRD  is  ...  end  THIRD; 


end  SECOND; 
begin 

—  sequence  of  statements 
end  MA I N_PROGR AM ; 

*  PACKAGES  LIBRARY  LJN  X  TS 

with  COMPLEX; 

package  MAIN_PROGRAM  is  ... 


Packages 
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NAMINB  VIST  BLE  COMPONENTS 

*  S  I  MPI _ E  VI  SIBIL- I  TV 

with  COMPLEX; 

procedure  SQME_PRQGRAM  is 

NUMBER_1,  NUMBER_2  :  COMPLEX . NUMBER; 
begin 


NUMBER_1. I MAG I NARY _P ART  :=  37.961; 

NUMBER_ 1  :=  COMPLEX. (NUMBER_1 ,  NUMBERJ2)  ; 

a  •  • 

end  SOME_PROGRAM ; 

*  DIRECT  VISIBILITY 
with  COMPLEX; 

procedure  ANOTHER_PRQGRAM  is 
use  COMPLEX; 

NUMBER_3,  NUMBER_4  :  NUMBER; 
begin 

NUMBER_3  :=  NUMBER_3  +  NUMBER_4; 
end  ANOTHER_PROGR AM ; 


Packages 
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e^ck/^ge  bodies 

*c  COMPLETE  TME  DECLARATION 
OE  ENTITIES  INTRODUCED 
I  |n|  THE  SPECIFICATION 

*  BE  SEPARATELY  COME I LED 

*  TAKE  THE  FORM 

package  body  SOME_NAME  is 
■  •  • 

end  SOME_NAME; 


Packages 
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PACKAGES  AND  PRIVATE  TYPES 

*  DEFINE  ABSTRACTIONS  WHOSE 
STRUCTURAL  DETAILS  ARE 

R I DDEN 

*  TWO  CLASSES  OF  TYPES 

—  PRIVATE 
--  LIMITED  PRIVATE 

*  ER I V/ ATE  TYRE  EXAMRLE 

package  MANAGER  is 

type  PASSWORD  is  private; 

NULL_PASSWORD  :  constant  PASSWORD; 
function  GET  return  PASSWORD; 

function  IS_VALID(P  :  in  PASSWORD)  return  BOOLEAN; 
private 

type  PASSWORD  is  range  0  ..  7_000; 

NULL_PASSWQRD  :  constant  PASSWORD  :=  0; 


end  MANAGER; 
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E  X  CEPT  X  ONS 


*  NAME  AN  EVENT  THAT  CAUSES 
SUSPENSION  OE  NORMAL 
PROGRAM  EXECUTION 

*  DRAWING  ATTENTION  TO  THE 
EVENT  IS  CALI — ED  Ft  A  I  S  X  NS 
THE  EXCEPT I ON 

*  THE  FtESEONSE  TO  THE  EVENT 

IS  CALLED  HANDI _ I NO  THE 

EXCEPTION 

*c  PERM  I  T  GRACEFUL  DEGRADAT  I  ON 


Exception  Handling  and  Low-level  Features 
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DECLARING  AND  RAISING  EXCEPTIONS 

*  EXCEPT  X  DIMS  MAY  BE  USER  — 

DEE I NED 

ABOVE__LIMITS,  BELOW_LIMITS  :  exception; 

PAR I TY_ERROR  :  exception; 

FATAL_DISK_ERROR  :  exception; 

*  SOME  EXCEPTIONS  F=»RE  PRE¬ 
DEFINED 

—  CONSTR A I NT_ERROR 
—  NUMER I C_ERROR 
—  PROGRAM_ERROR 
—  ST  OR AGE_ERROR 
—  T  ASK I NG_ERROR 

*  RAISING  EXCEPTION  MAY 

BE  DONE  EXPI _ I  CC  I  T"l _ V 

raise  FAT AL_D I SK_ERROR ; 
raise  ABOVE_LIMITS; 
raise; 

raise  NUMER I C_ERROR ; 

Exception  Handling  and  Low-level  Features 
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raising  predefined  exceptions 

4t  CONSTRAINT  —  ERROR 

—  RAISED  WHEN  A  RANGE,  INDEX,  OR  DISCRIMINANT 
CONSTRAINT  IS  VIOLATED 

*  NUMER  I  CC _ ERROR 

_  RAISED  WHEN  a  NUMERIC  OPERATION  YIELDS  A 

RESULT  THAT  CANNOT  BE  REPRESENTED 

*  PROGRAM _ ERROR 

_  RAISED  WHEN  ALL  ALTERNATIVES  OF  A  SELECT 

STATEMENT  HAVING  NO  ELSE  PART  ARE  ALL  CLOSED, 

,  OR  IF  AN  ERRONEOUS  CONDITION  IS  DETECTED 

jjt  STORAGE _ ERROR 

_  RAISED  WHEN  THE  DYNAMIC  STORAGE  ASSOCIATED 

ALLOCATED  TO  AN  ENTITY  IS  EXCEEDED 

*  TASKlNG_ERROR 

_  RAISED  WHEN  EXCEPTION  ARISE  DURING  INTER¬ 
TASK  COMMUNICATION 


Exception  Handling  and  Low-level  Features 
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HANDI —  I IMC3  EXCEPTIONS 


*  WHEN  AN  EXCEPTION  IS  RAISED, 

PROCESSING  IS  ABANDONED  AND 

CONTROL  PASSES  TO  AN 
EXCEPTION  HANDLER 

*c  A  HANDLER  MAY  APPEAR  AT  THE 

END  OE  A  BLOCK  OR  THE!  BODY" 
OF  A  SUBPROGRAM ,  PACKAGE „ 

OR  TASK 

*  EXCEPTION  HANDLERS  TAKE  THE 

FORM  OF  A  CASE  STATEMENT 


Exception  Handling  and  Low-level  Features 
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A  TASK 

*  I S  <e*!M  ENT  I  TY  THAT  OPERATES 
I H  PARAL,L,EL  WITH  OTHER 
PROGRAM  UNITS 

*  PHYSICALLY  MAY  EXECUTE  OH 
MULT I COMPUTER  SYSTEMS, 

MULT I PROCESSOR  SYSTEMS, 

OR  WITH  INTERLEAVED 
EXECUTION  OH  <=*  S  I NGI — E 
PROCESSOR 

Jk  REQUIRES  F*  MEA*WS  EOF*  INTER¬ 
TASK  COMMUN  I  C#-*T  I  OH 
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TASKS 


*  PERM I T  COMMUNICATING 
SEQUENTIAL.  PROCESSES 

*  USE  THE  CONCEPT  OF  A 
RENDEZVOUS 

*  SPEC X  A I _  STATEMENTS  ARE 

PROVIDED  FOR  TASK  CONTROL 
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Figure  16-2:  Tasks  as  Communicating  Sequential  F'rocesses 


Ta 
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FORM  OF  ADA  TASKS 


TASKS  ARE  ACTIVATED 
I  MPI _ I  C  I  TLY 


A  PARENT  TASK  WILL.  NOT 
TERM  I  NATE  UNTIL.  ALL  OTHER 
DEPENDENT  TASKS  HAVE 
TERMINATED 

—  A  TASK  DEPENDS  ON  AT  LEAST  ONE  MASTER 
—  A  MASTER  IS  A  TASK,  A  CURRENTLY  EXECUTING  BLOCK 
OR  SUBPROGRAM,  OR  A  LIBRARY  UNIT 
—  A  TASK  THAT  IS  A  DESIGNATED  ACCESS  OBJECT  OR 
COMPONENT  THEREOF,  DEPENDS  ON  THE  MASTER  THAT 
ELABORATED  THE  ACCESS  TYPE 
—  ANY  OTHER  TASK  DEPENDS  ON  THE  MASTER  WHOSE 
EXECUTION  CREATED  THE  TASK  OBJECT 
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TASK 

* 


* 

I 

* 


SPEC  IFI  CAT  I  ONS 


I NTRODUCE  THE  NAME  OE  THE 
TASK  OBJECT  OR  TASK  TYRE, 
ALONG  WITH  VISIBLE  ENTRIES 


MAY  NOT  BE  SERARATEI _ Y 

COMR I LED 


TAKE  THE  EORM 

task  SOME_NAME  is 
—  TASK  ENTRIES 
end  SOME_NAME; 
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T#=*SK  ENTRIES 


*  DEFINE  THE  PATH  OF  COMMUN¬ 
ICATION  WITH  A  GIVEN  TASK 

*  HAVE  A  FORM  SIMILAR  TO 
SUBPROGRAM  DECLARATIONS 


*  SEMANTICS  ARE  DIFFERENT 


THAN  FOR  SUBPROGRAM 
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NAMING  VISIBLE:  COMPONENTS 

*  C3IVEM  THE  FOLLOWING 

task  PR0TECTED_3T ACK  is 
pragma  PRIORITY (7); 

entry  POP  (ELEMENT  :  out  INTEGER); 
entry  PUSH (ELEMENT  :  in  INTEGER); 
end  PROTECTED_ST ACK ; 

*  fNl^MIfvJ(3  ENTRY 

PRQTECTED_ST ACK . POP (MY_VALUE)  ; 

PROTECTED_STACK. PUSH (36) ; 

*e  RENAMING  ENTRY 

procedure  PROTECTED_POP (ELEMENT  :  out  INTEGER) 
renames  PROTECTED_STACK. POP; 
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ENTRY  SEMANTICS 

*  EACH  ENTRY  DEFINES  **!vl 
I MPL I C I T  QUEUE 

*  OlN||_Y  ONE  TASK  MAY  RENDEZVOUS 
WITH  AN  ENTERED  TASK  AT 

<=*  nr  x  me:  ;  ^l_i_  others  i  t 

IN  ORDER  OE  ARRIVAL  IN 
THE  QUEUE 

i 

« 

*  A  TASK  MAY  BE  IN  ONE  OE 
FOUR  ST  ATES 

—  RUNNING  (CURRENTLY  ASSIGNED  TO  A  PROCESSOR) 

—  READY  (UNBLOCKED  AND  WAITING  FOR  PROCESSING) 

—  BLOCKED  (DELAYED  OR  WAITING  FOR  A  RENDEZVOUS) 
—  TERMINATED  (NEVER  OR  NO  LONGER  ACTIVE) 
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PRIORITY 


*  A  STAT I  C  VF*I_UE  ASSOCIATED 
WITH  EVERY  TASK  (AND  THE 
M#=*IN  PROGRAM)  THAT 

I ND I CATES  A  DEGREE  OF 
URGENCY 

*  t-W=»Y  BE  EXPI —  I  C  I  TLY  SET  WITH 
A  PRAGMA 

«  DOES  NOT  AFFECT  THE  ORDER 
XM  UJHICH  A  QUEUED  TASK 
UJ  X  1 _ I _  BE  SERVED 


jK  i  p  TWO  OR  MORE  T  ASKS  ^RE 
I  in|  THE  READY  ST#=»TE  ,  THE 
ONE  WITH  THE  H I OHEST  PRI¬ 
ORITY  W 1 1 I —  BE  SELECTED 

TO  RUN 
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*  TASKS  MAY  STILL  CALL  ONE 
ANOTHER  MUTUALLY 

task  FIRST_TASK  is 
entry  SERVICE; 
end  FIRST_TASK; 

task  SECOND_T ASK  is 
entry  SERVICE; 
end  SECOND_T ASK ; 

task  body  FIRST_TASK  is  ... 
task  body  SECOND_T ASK  is  ... 
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FAMILIES  OF  ENTRIES 


*  DEFINE  <=»  SET  OF  PEER  ENTRIES 
I NDEXED  BY  <=*  DISCRETE 
VALUE 

*  GIVEN  THE  FOLLOWING 

type  IMPORTANCE  is  (LOW,  MEDIUM,  HIGH); 
task  MESSAGE  is 

entry  GET ( IMPORTANCE) (M  :  out  MESSAGE_TYPE) ; 
entry  PUT < IMPORTANCE)  (M  :  in  MES5AGE_TYPE )  ; 
end  MESSAGE; 

*  NAMING  A  F  AM X I — Y  MEMBER 

MESSAGE. GET (HIGH) (YOUR_MESSAGE> ; 

MESSAGE. PUT (IMPORTANCE  =>  HIGH) (MY_MESSAGE) ; 
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TASK  BODIES 

*  DEFINE  THE  ACTION  OF  A 
TASK 

*  MAY  BE  SEPARATELY  COMPILED 

(ONLY  AS  A  SUBUN I T  > 

*  TAKE  THE  POPM 

task  body  SOME_NAME  is 

•  ■  a 

end  SOME_NAME; 
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SAMPLE  T£*SK  BODIES 

*  SIMPLE  BODY 

task  WATER_MON I TOR ; 

task  body  WATER_MON I TOR  is 
begin 
loop 

if  WATER_LEVEL  >  MAX I MUM_LEVEL  then 
SOUND_ ALARM; 
end  if; 
end  1 oop ; 

end  WATER_MONITOR; 
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*  BODY  WITH  AN  ACCEPT  CLAUSE 

task  CONSUMER  is 

entry  TRANSMIT_MESSAGE (M  :  in  STRING); 
end  CONSUMER; 

with  LOW_LE VEL_ 10; 
use  L0W_LEVEL_ 10; 
task  body  CONSUMER  is 
begin 
loop 

accept  TRANSMIT_MESSAGE(M  s  in  STRING)  do 
SEND_CQNTR0L (MODEM,  M) ; 
end  TRANSM I T_ME5SAGE ; 
end  1 oop ; 
end  CONSUMER; 
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STATEMENTS 


*c  PROVIDE  PRIMITIVE  F^L-OW 
OF  CONTROL 


*  CLASSES  OF-  STATEMENTS 


—  SEQUENTIAL 

—  CONDITIONAL 

—  ITERATIVE 


Expressions  and  Statements 
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CONDITIONS  FOR  RENDEZVOUS 


*  AN  ENTRY  CALL  Fr  ROM  OUTSIDE 

THE  T<=*SK 

*  A  CORRESPOND  I NB  ACCEPT  I  IM 

THE  TASK  BODY 

*  FOR  S  X  MPLE  RENDEZVOUS,  A 

TASK  IaI  X 1 _ I _  RUT  ITSELF  TO 

SLEEP  I R  I T  ARR I YES  AT  A 

SYNCRRON I Z AT I ON  POINT 
BEER  OR  EE  ANOTHER 

*  WHEN  THE  RENDEZVOUS  IS 

COMPLETE,  THE  TWO  TASKS 

ARE  REI _ EASED  TO  CONTINUE 
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accert  statements 


*  CORRESPOND  TO  TASK  ENTR I OS 

*  MOST  APPEAR  DIRECTLY  X  N 
TOE  TASK  BODY 

*  OPTIONALLY  DEE  I  ME  A  SET 
OE  STATEMENTS  EOR  TOE 
RENDEZVOUS  ACTION 

3*c  A  OIVEN  ENTRY  MAY  O  A  VE  ONE 
OR  MORE  CORRESROND I NO 
ACCEET  CLAUSES 
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*  SAMPLE  ACCEPT  STATEMENTS 

task  SEQUENCER  is 
entry  PHASE_1; 
entry  PHASE_2; 
entry  PHASE_3; 
end  SEQUENCER; 

task  body  SEQUENCER  is 
begin 

accept  PHASE_1; 
accept  PHASE_2; 
accept  PHASE_3  do 
I N I T I ATE_LAUNCH ; 
end  PHASE _3; 
end  SEQUENCER; 
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~T  ASK  ST  ATEMENTS 


*  DELAY  STATEMENTS 


*  STATEMENTS  FOR  TASK 
SYNCHRON I ZAT ION 
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DELAY  STATEMENT 

*  SUSPENDS  PROCESSING  FOR  AT~ 
LEAST  THE  GIVEN  TIME! 
INTERVAL  <IN  SECONDS  > 

*  simf>le  delay  statements 

delay  10.0; 

delay  DURATION (NEXT_T I ME  -  CALENDAR . CLOCK ) ; 

*  ADD I NG  NAMED  NUMBERS  FOR 
RE  AD  AB  X  L  X  TTY 

SECONDS  :  constant  DURATION  :=  1.0; 

MINUTES  :  constant  DURATION  ;=  60.0; 

HOURS  :  constant  DURATION  :=  3600.0; 

delay  2.0*HOURS  +  7.0*MINUTES  +  36. 0*SECONDS; 
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CLASSIFICATION  OF  TASKS 

*  ACTOR  TASKS 

—  HAS  NO  VISIBLE  COMMUNICATION  PATHS 
—  MAY  CALL  OTHER  TASK  ENTRIES 
—  SAMPLE  APPLICATION 

task  PRODUCER; 

*  TRANSDUCER  TASKS 

—  HAS  VISIBLE  ENTRIES 
—  MAY  CALL  OTHER  TASK  ENTRIES 
—  SAMPLE  APPLICATION 

task  MESSAGE_PASSER  is 

entry  RECEIVE_MESSAGE (M  :  in  MESSAGE); 
end  MESSAGE_PASSER ; 

*  SERVER  TASKS 

—  HAS  VISIBLE  ENTRIES 
—  DOES  NOT  CALL  OTHER  TASK  ENTRIES 
—  SAMPLE  APPLICATION 

task  CONSUMER  is 

entry  TRANSMIT_MESSAGE (M  :  in  STRING); 
end  CONSUMER; 
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Cl _ S SEES  OF  T#=*SK  COMMON  I  C<^T  X  ON 

; 


l 

[  *  S I MPI _ F  COMMUNICATION 


—  SELECTIVE  WAIT 

—  SELECTIVE  WAIT  WITH  AN  ELSE  PART 
—  SELECT  WITH  GUARDS 
—  SELECT  WITH  A  DELAY  ALTERNATIVE 
—  SELECT  WITH  A  TERMINATE  ALTERNATIVE 

*  SELECTIVE  RENDEZVOUS  BY 
THE  CAI — I _ EER 

—  TIMED  ENTRY  CALL 
—  CONDITIONAL  ENTRY  CALL 
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SIMPLE  COMMUNIHATION 

*  *2*  INI  ACTOR  TASK 

—  CUSTOMER  TASK 
MAKE_DEPOS I T ( I D  =>  1273, 

AMOUNT  =>  1.0); 

*  A  SERVER  TASK 

—  TELLER  TASK 

accept  MAKE_DEPOSIT (ID  :  in  INTEBER; 

AMOUNT  :  in  FLOAT)  do 


BALANCE  (ID)  :  «  BALANCE  (ID)  +■  AMOUNT; 
end  MAKE__DEPOS  IT; 


4lprooucco  ON  Of  SSP  LOPtt  u 


Software  Engineering  with  Ada 


I  VI 


WA  X  T 


*  SELECT  ONE  OF  SEVERAL 

ROSS  I  BLE  ENTRIES 

*  THE  SELECTION  IS  NON  — 

DETERM INI ST  X C 


*  A  SERVER  TASK 

—  TELLER  TASK 
i  loop 

select 

accept  MAKE_DEPQSIT (ID  :  in  INTEGER;  AMOUNT  :  in  FLOAT)  do 
•  •  ■ 

end  MAKE_DEPOS IT; 
or 

accept  MAKE_DRIVE_UP_DEPQSIT (ID  :  in  INTEGER;  AMOUNT  :  in  FLOAT) 
do  ... 

end  MAKE_DRIVE_UP_DEPOSIT; 
end  select; 
end  1 oop ; 
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X  VI 


IT  WITH  <=*IM 


PART 


*  SELECT  OINIE  OF  SEVERAL- 

ECJSS  I  Bl _ E  ENTRIES  OR  AN 

EL-SE  R^RT  IE  MO  T^SKS  **RE 
WAITING  EOR  SERVICE 

*  A  SERVER  TASK 

—  TELLER  TASK 
loop 

select 

i  accept  MAKE_DEPOSIT (ID  :  in  INTEGER;  AMOUNT  :  in  FLOAT)  do 
* 

■  a  a 

end  MAKE_DEPOSIT; 
or 

accept  MAKE_DRIVE_UP_DEPOSIT ( ID  :  in  INTEGER;  AMOUNT  s  in  FLOAT) 
do  ... 

end  MAKE^DRI VE_UP_DEPOSIT ; 
else 

DO.FILING; 
end  select; 
end  1 oop ; 
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SELECT  WITH  GUARDS 

*  SELECT  ONE  OF  SEVERAL 

FOSS  I  EE*  I _ E  ENTRIES  THAT  AIRE 

OFEN  BASED  ON  EVALUAT ION 
OF  A  GUARD  CLAUSE 

At  A  SERVER  TASK 

—  TELLER  TASK 
loop 

select 

when  BANK  I NG  _HQURS  =*> 

accept  MAKE_DEPOSIT (ID  :  in  INTEGER;  AMOUNT  :  in  FLOAT)  do 

i 

end  MAKE.DEPOSIT; 
or 

when  DRIVE_UP_HOURS  => 

accept  MAKE_DR  I  VE_UP  ..DEPOSIT  (ID  s  in  INTEGER;  AMOUNT  :  in  FLOAT) 
do  ... 

end  MAKE_DR I VE_UP_DEPOS IT; 
else 

DO_FIUNG; 
end  select; 
end  1 oop ; 
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SELECT  WITH  GUARDS 

*  SELECT  ONE  OF  SEVERAL 
POSSIBLE  ENTRIES  THAT  ARE 
OF»EN  BASED  ON  EVALUATION 
OR  A  GUARD  CLAUSE 

*  A  SERVER  TASK 

—  TELLER  TASK 
loop 
select 

when  BANK I NG_HOURS  =  > 

accept  MAKE_DEPOSIT (ID  :  in  INTEGER;  AMOUNT  ;  in  FLOAT)  do 

i 

end  MAKE_DEPQSIT ; 
or 

when  DRIVE_UP_HOURS  *> 

accept  MAKE_DRIVE_UP_DEPQSIT<ID  :  in  INTEGER;  AMOUNT  :  in  FLOAT) 
do  ... 

end  MAKE_DR I VE_UP_DEPOS IT; 
else 

DO_FILING; 
end  select; 
end  1 oop ; 
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SELECT  WITH  A  DELAY  ALTERNATIVE 


*  SELECT  ONE  OF  SEVERAL 
FOSS IBLE  ENTRIES  OF  A 
DELAY  PART  IF  MO  TASKS  ARE 
WAITING  FOF  SERVICE 

*  A  SERVER  TASK 

—  TELLER  TASK 

loop 

select 

I 

accept  MAKE_DEPOSIT (ID  :  in  INTEGER;  AMOUNT  :  in  FLOAT)  do 

end  MAKE_DEPOSIT; 
or 

delay  30*MINUTES; 

TAKE_A_BREAK; 

■  end  select; 
end  1 oop ; 
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SEL-ECT  WITH  ft  TERMINATE 
ALTERNAT I VE 

*  SELECT  ONE  OE  SEVERAL 
POSSIBLE  ENTRIES  OR  ft 
TERM I NftTE  RftRT 

*  CONDITION  EOR  TERM I NftT I ON 

—  TASK  PARENT  IS  READY  TO  TERMINATE 

—  DEPENDENT  TASKS  ARE  TERMINATED  OR  READY  TO  TERMINATE 
—  NO  CALLING  TASKS  NEED  SERVICE 

*  ft  SERVER  TftSK 

, —  TELLER  TASK 
loop 
select 

accept  MAKE_DEPQSIT (ID  :  in  INTEGER;  AMOUNT  :  in  FLOAT)  do 
•  *  • 

end  MAKE_DEP05 IT; 
or 

terminate; 
end  select; 
end  1 oop ; 
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ALTERNATE  FORMS  OF 
TERM  X  IM^T  X  ON 

*  SI MPLE  ABORT 

abort  TELLER; 

*  GIVI  IMG  A  TASK 
UJ  I  SHES 

SHUT_DOWN; 
delay  30*SECONDS; 
abort  TELLER; 


TASK 


ITS  LAST 


i  rn 


Tasks 


Software  Engineering  with  Ada 


TIMED  ENTRY  CAL_U 


*  ATTEMPT  RENDEZVOUS  WITH  A 
SERVER  TASK  FOR  A  STATED 
MINI MUM  T I ME 


*  A  CALLING  TASK 

—  CUSTOMER  TASK 
select 

MAKE_DEPOSIT (ID  =>  1273,  AMOUNT  =>  1_000.0); 
or 

delay  10. 0*MINUTES; 

T  AKE_A_H IKE; 
end  select; 


153 


Tasks 


n  wo  j««j  mo  oianooHdif 


Software  Engineering  with  Ada 


CONDITIONAL  ENTRY  CALL 


*  ATTEMPT  IMMEDIATE  REN¬ 
DEZVOUS  WITH  A  SERVER 
TASK 

*  A  CALL X NG  TASK 

—  CUSTOMER  TASK 
select 

MAKE_DEPOSIT (ID  =>  1273,  AMOUNT  =>  1_000.0>;' 
else 

RUN_AWAY; 
end  select; 
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PROBLEMS  WITH  C  LJ  F<  F<  E  hvj  T  PROGRAMMING 

EInIY  I  RONMENTS 

*  LACK  OF  COMMOM  I NTERFACES 

*  INCONSISTANCV  AMONG  "TOOLS 

*  L«CK  OE  MEAN  I NGFUL  TOOLS 

*  INABILITY  TO  PROCURE  PROPER 
TOOLS 


The  Ada  Programming  Support  Environment 
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luioiif  to  no  ojonooxi-if 


Software  Engineering  with  Ada 


cxpectf^t  i  ons  of  stoneman 

*  REDUCED  COMPILER  DEVELOPMENT 
COSTS 

*  REDUCED  TOOL-  DEVELOPMENT 
COSTS 

*  X  MPROVED  SOFTWARE  PORTABILITY 

*  I MPROVED  PROGRAMMER 

PORT  AB  II _  I  TY 


The  Ada  Programming  Support 


Env 1 ronmen  t 


15b 


UpOuOUCID  ok  O*  *>•' 


Software  Engineering  with  Ada 


ARCH  I  TECTURE  OF  “THE  *=*D*=»  PROGRAMING 
SUPPORT  ENV X  ROMMENT 


*  KAPSE 

—  KERNAL  ADA  PROGRAMMING  SUPPORT  ENVIRONMENT 

*  MAPSE 

—  MINIMAL  ADA  PROGRAMMING  SUPPORT  ENVIRONMENT 

*  «  Fr'  S  E 

—  ADA  PROGRAMMING  SUPPORT  ENVIRONMENT 


The  Ada  Programming  Support  Environment 
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tCPKOOUCCO  ON  OfW  col'll  II 


Software  Engineering  with  Ada 


the:  ahse  data  base 

*  PROVIDES  A  REPOS  I  TORY  EOF?  A I _ L_ 

PROJECT  INFORMATION 

*  PROVIDES  A  CENTRAL.  EO  INT 

OE  MANAGEMENT 

*  FACILITATES  CONFIGURATION 
MANAGEMENT 


The  Ada  Programming  Support 


Environment 
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<i  mo)  dSv  <o  mo  aisnooimf 
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k^ese 

*  is  tme  most  primitive:  l_ev 

□F  THE  ARSE 

*c  PROVIDES  THE  l_OOIGAL_  TO 
EM  YS  I  CAL  ARSE  INTERFACE 

*  RROV/IDES  ERIMITIVE  ACCESS 
TO  EROGRAM  LIBRARIES 


The  Ada  Programming  Support  Environment 
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itmooucco  on  o»  *ic  • 


Software  Engineering  with  Ada 


MAPSE 


*  F>ROVIDES  #=*  ROBUST  TOOL-  SET 

—  TEXT  EDITOR 
—  PRETTY  PRINTER 
—  COMPILER 
—  LINKER 

—  SET-USE  STATIC  ANALYZER 
—  CONTROL-FLOW  STATIC  ANALYZER 
—  DYNAMIC  ANALYSIS  TOOLS 
—  TERMINAL  INTERFACE  ROUTINES 
—  FILE  ADMINISTRATOR 
—  COMMAND  INTERPRETER 
—  CONFIGURATION  MANAGER 

*  DI  *=*  CAN  PROVIDE  A  COMMON 
INTERFACE  AMONG  TOOLS 

—  DESCRIPTIVE  INTERMEDIATE  ATTRIBUTED 
NOTATION  FOR  ADA 


The  Ada  Programming  Support  Environment 
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itPROOOCKO  OH  Of  W  COP1 L  B 


—  EXECUTION 
—  MAINTENANCE 

*  TWO  CLASSES  OF  TOOLS  EE X  I  ST 

I 

« 

—  GENERIC  TOOLS  THAT  APPLY  TO  ALL  PROGRAMMING 
TASKS  WITHOUT  REGARD  FOR  SPECIFIC  DISCIPLINES 
—  METHODOLOGY-SPECIFIC  TOOLS  THAT  SUPPORT  A 

PARTICULAR  PROGRAMMING  OR  MANAGEMENT  DISCIPLINE 


ItMOOUClO  ON  o»t»*  CONIB 


Software  Engineering  with  Ada 


THE  SUCCESS  OF  ADA 


SUCCESS 


I 


Trends  and  Conclusion 


DES  X GN 
IMPLEMENTATION 
+  CLOUT 

-**  NEED 
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ItPIIOOUCtD  OH  COHk 
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And  tl 


I _ or-  d 


people  i 


.1  1  one  1  an i 


;ai  d  m  Behol  d  p  the 
and  they  have 
iqs  ;  and  th  i  3  they 


beg i n  to  do;  and  now  nothi ng 
w  i  1  1  be  restrai  ned  f  r-om  them, 
which  they  have  i  magi  ned  tea  do. 
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